
Public Class CiudadesProvinciasPaises
    Dim ADCiuProPai As New ADCono.CiudadesProvinciasPaises

    Public Function ObtenerCiuProPai(Optional ByVal Nom As String = "", Optional ByVal Tip As String = "")
        Dim DS As New DataSet
        DS = ADCiuProPai.ObtenerCiuProPai(Nom, Tip)
        Return DS
    End Function

    Public Function ObtenerCiuPro(ByVal Cod As Long, Optional ByVal Tip As String = Nothing)
        Dim DS As New DataSet
        DS = ADCiuProPai.ObtenerCiuPro(Cod, Tip)
        Return DS
    End Function

    Public Function GenerarCiuProPai(Optional ByVal Nom As String = "", Optional ByVal CodCPP As Integer = 0, Optional ByVal CodPos As Integer = 0, _
    Optional ByVal CodAre As Integer = 0, Optional ByVal Obs As String = "", Optional ByVal Tip As String = Nothing)
        Dim DS As New DataSet
        DS = ADCiuProPai.GenerarCuiProPai(Nom, CodCPP, Codpos, CodAre, Obs, Tip)
        Return DS
    End Function

    Public Function ModificarCiuProPai(ByVal Nom As String, Optional ByVal Tip As String = Nothing)
        Dim DS As New DataSet
        DS = ADCiuProPai.GenerarCuiProPai(Nom, Tip)
        Return DS
    End Function

    Public Function EliminarCiuProPai(ByVal CodCPP As Integer, ByVal Tip As String)
        Dim DS As New DataSet
        DS = ADCiuProPai.EliminarCiuProPai(CodCPP, Tip)
        Return DS
    End Function
End Class
